data(bot)
b <- bot@coo[[1]]
coo.plot(b)
coo.align(b) # a bottle aligned along its longer axis
coo.center(b) # a bottle centered on the origin
coo.close(b) # a "closed" bottle
coo.sample(b, 60) # 60 points sampled along the curvilinear abscissa
coo.sample.rr(b, 60)$coord # 60 points sampled along the curvilinear abscissa
coo.trans(b, x=50, y=-200) # translate bottle (x: +50 ; y: -200)
coo.template(b, 5) # a "templated" bottle
coo.scale(b, 5) # a "scaled" bottle
Run the code above in your browser using DataLab